home *** CD-ROM | disk | FTP | other *** search
- /***************
- * NAME: ??
- * DESCRIPTION: ??
- ***************/
-
- signal on error
-
- options results
-
- IF ~show('P','RAYSTORM') THEN DO
- address COMMAND 'run >NIL: <NIL: /RayStorm'
- address COMMAND WaitForPort RAYSTORM
- END
-
- address RAYSTORM
-
- exit 0
-
- error:
- say "Error" rc "in line" sigl ":"
- GETERRORSTR rc
- say result
- exit 0
-